data1 segment
maxlen	db	10
		db	?
		db	20 dup(0) ,'sdj'
		db '$'
data1 ends

stack1 segment stack
	db	20 dup(0)
stack1 ends

code segment
	assume cs:code, ds:data1, ss:stack1
start:
	mov ax, data1
	mov ds, ax
	lea dx, maxlen
	mov ah, 0ah
	int 21h
	lea dx, maxlen
	mov ah, 09h
	int 21h
	mov ah, 4ch
	int 21h
code ends
	end start
